home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 February / 1988-02.d64 / impossible 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  30 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147][144]   copyright 1988 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved"
  4. 40 gosub62000
  5. 50 print"[147]":sys49152:print
  6. 60 printspc(12)"expanding border"
  7. 70 printspc(13)"press [return]"
  8. 80 geta$:ifa$<>chr$(13)then80
  9. 90 sys49155:end
  10. 62000 fori=49152to49414:reada:pokei,a:x=x+a:next
  11. 62010 ifx<>34547thenprint"data statement error.":stop
  12. 62020 return
  13. 62030 data 24,144,21,120,32,132,255,32,129,255,173,239,192,141,20,3
  14. 62040 data 173,240,192,141,21,3,88,96,120,169,127,141,13,220,173,13
  15. 62050 data 220,173,20,3,141,239,192,173,21,3,141,240,192,169,106,141
  16. 62060 data 20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
  17. 62070 data 142,141,241,192,141,18,208,160,1,24,105,2,153,241,192,200
  18. 62080 data 192,9,208,245,169,0,141,250,192,169,252,141,4,193,169,129
  19. 62090 data 141,26,208,169,143,141,25,208,88,96,120,172,250,192,185,251
  20. 62100 data 192,141,32,208,200,140,250,192,192,9,240,17,185,241,192,141
  21. 62110 data 18,208,169,143,141,25,208,104,168,104,170,104,64,173,241,192
  22. 62120 data 201,142,144,7,169,252,141,4,193,208,9,201,55,176,5,169
  23. 62130 data 4,141,4,193,173,241,192,24,109,4,193,141,241,192,141,18
  24. 62140 data 208,173,17,208,41,127,141,17,208,169,150,56,237,241,192,74
  25. 62150 data 74,141,6,193,160,1,173,241,192,24,109,6,193,153,241,192
  26. 62160 data 200,192,4,208,244,200,169,150,24,109,6,193,153,241,192,200
  27. 62170 data 192,9,208,244,169,0,141,250,192,169,143,141,25,208,76,49
  28. 62180 data 234,142,144,146,148,150,152,154,156,158,0,2,5,14,8,9
  29. 62190 data 7,3,4,0,248,8,0
  30.